home *** CD-ROM | disk | FTP | other *** search
/ Top 200 Programs / Top 200 Programs.iso / Bob8 / THOMPSON / LIBERTY / PRODUCT / LB14W.EXE / SPACESHP.BAS < prev    next >
BASIC Source File  |  1995-06-19  |  1KB  |  51 lines
  1.  
  2.  
  3.     'open a graphical window and display spaceships
  4.  
  5.     drawX = 40
  6.     drawY = 40
  7.  
  8.     WindowWidth = 300
  9.     WindowHeight = 250
  10.     button #1, " OK ", [ok], LR, 40, 20
  11.     open "SPACESHIPS" for graphics as #1
  12.     print #1, "fill black"
  13.     print #1, "color white"
  14.  
  15.     for x = 1 to 5
  16.         for y = 1 to 3
  17.             gosub [Spaceships]
  18.             drawY = drawY + 40
  19.             angle = angle + 15
  20.         next y
  21.         drawY = 40
  22.         drawX = drawX + 40
  23.     next x
  24.  
  25.     input r$
  26.  
  27. [ok]
  28.  
  29.     close #1
  30.  
  31.     end
  32.  
  33.  
  34. [Spaceships]
  35.  
  36.     print #1, "color white"
  37.     print #1, "place "; drawX; " "; drawY
  38.     print #1, "north; turn "; angle; "; down; turn 275; go 8; turn 85; go 10; turn 180; size 3; go 14"
  39.     print #1, "size 1"
  40.     print #1, "place "; drawX; " "; drawY
  41.     print #1, "north; turn "; angle; "; turn 85; go 8; turn 275; go 10; turn 180; size 3; go 14"
  42.     print #1, "size 1"
  43.     print #1, "place "; drawX; " "; drawY
  44.     print #1, "north; turn "; angle; "; turn 180; go 10; size 12; go 0"
  45.     print #1, "flush"
  46.  
  47.     print #1, "size 1"
  48.  
  49.     return
  50.  
  51.